home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr37 / cw_in_47.zip / INTELAPP.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-03-18  |  17KB  |  561 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Date     DATE001
  20.     Date     DATE002
  21.     Integer  INTEGER001
  22.     Integer  INTEGER002
  23.     Integer  INTEGER003
  24.     Integer  INTEGER004
  25.     Integer  INTEGER005
  26.     Integer  INTEGER006
  27.     Integer  INTEGER007
  28.     Integer  INTEGER008
  29.     Integer  INTEGER009
  30.     Integer  INTEGER010
  31.     Integer  INTEGER011
  32.     Integer  INTEGER012
  33.     String   STRING002
  34.     String   STRING003
  35.     String   STRING004
  36.     String   STRING005
  37.     String   STRING006
  38.     String   STRING007
  39.     String   STRING008
  40.     String   STRING009
  41.     String   STRING010
  42.     String   STRING011
  43.     String   STRING012
  44.     String   STRING013
  45.     String   STRING014
  46.     String   STRING015
  47.     String   STRING016
  48.     String   STRING017
  49.     String   STRING018
  50.     String   STRING019
  51.     String   STRING020
  52.     String   STRING021
  53.     String   STRING022
  54.     String   STRING023
  55.     String   STRING024
  56.     String   STRING025
  57.     String   STRING026
  58.     String   STRING027
  59.     String   STRING028
  60.     String   STRING029
  61.     String   STRING030
  62.     String   TSTRING031(5)
  63.     String   STRING032
  64.     String   TSTRING033(4)
  65.     String   STRING034
  66.     String   STRING035
  67.     String   STRING036
  68.     String   STRING037
  69.     String   STRING038
  70.     String   STRING039
  71.     String   STRING040
  72.     String   STRING041
  73.     String   STRING042
  74.     String   STRING043
  75.     String   STRING044
  76.     String   STRING045
  77.     String   STRING046
  78.     String   STRING047
  79.     String   STRING048
  80.     String   STRING049
  81.     String   STRING050
  82.  
  83. ;------------------------------------------------------------------------------
  84.  
  85.     FDefIn 1
  86.     FDefOut 2
  87.     INTEGER007 = 36
  88.     STRING041 = PPEPath() + "INTELEC.CNF"
  89.     STRING048 = 48884
  90.     STRING049 = 58053
  91.     STRING047 = "N"
  92.     STRING050 = "U" + "n" + "r" + "e" + "g" + "i" + "s" + "t" + "e" + "r" + "e" + "d"
  93.     STRING008 = "4.7 "
  94.     DATE001 = Date()
  95.     STRING032 = "  "
  96.     If (Exist(STRING041)) Then
  97.         FOpen 1, STRING041, 0, 0
  98.         FGet 1, STRING036
  99.         FGet 1, INTEGER010
  100.         FGet 1, INTEGER009
  101.         FClose 1
  102.     Else
  103.         PrintLn "@X0CError - Config file not found - Please notify SysOp"
  104.         End
  105.     Endif
  106.     Tokenize STRING036
  107.     GetToken STRING045
  108.     GetToken STRING046
  109.     STRING042 = Left(STRING045, 1)
  110.     STRING043 = Left(STRING046, 2)
  111.     STRING044 = STRING042 + STRING043
  112.     If (STRING042 == "A") INTEGER011 = 8408
  113.     If (STRING042 == "B") INTEGER011 = 9119
  114.     If (STRING042 == "C") INTEGER011 = 6619
  115.     If (STRING042 == "D") INTEGER011 = 4820
  116.     If (STRING042 == "E") INTEGER011 = 7325
  117.     If (STRING042 == "F") INTEGER011 = 2928
  118.     If (STRING042 == "G") INTEGER011 = 2031
  119.     If (STRING042 == "H") INTEGER011 = 1934
  120.     If (STRING042 == "I") INTEGER011 = 5534
  121.     If (STRING042 == "J") INTEGER011 = 4737
  122.     If (STRING042 == "K") INTEGER011 = 9242
  123.     If (STRING042 == "L") INTEGER011 = 3743
  124.     If (STRING042 == "M") INTEGER011 = 6546
  125.     If (STRING042 == "N") INTEGER011 = 8355
  126.     If (STRING042 == "O") INTEGER011 = 2859
  127.     If (STRING042 == "P") INTEGER011 = 4660
  128.     If (STRING042 == "Q") INTEGER011 = 7463
  129.     If (STRING042 == "R") INTEGER011 = 1164
  130.     If (STRING042 == "S") INTEGER011 = 6471
  131.     If (STRING042 == "T") INTEGER011 = 3973
  132.     If (STRING042 == "U") INTEGER011 = 5674
  133.     If (STRING042 == "V") INTEGER011 = 5782
  134.     If (STRING042 == "W") INTEGER011 = 3885
  135.     If (STRING042 == "X") INTEGER011 = 8287
  136.     If (STRING042 == "Y") INTEGER011 = 7591
  137.     If (STRING042 == "Z") INTEGER011 = 1096
  138.     INTEGER008 = S2I(STRING044, INTEGER007) + INTEGER010 + STRING048 + INTEGER011
  139.     INTEGER012 = S2I(STRING044, INTEGER007) + INTEGER010 + STRING049 + INTEGER011
  140.     If (INTEGER009 == INTEGER008) Goto LABEL001
  141.     If (INTEGER009 == INTEGER012) Goto LABEL001
  142.     Goto LABEL017
  143.     :LABEL001
  144.     STRING047 = "Y"
  145.     If (Len(INTEGER010) == 1) STRING038 = "000"
  146.     If (Len(INTEGER010) == 2) STRING038 = "00"
  147.     If (Len(INTEGER010) == 3) STRING038 = "0"
  148.     If (Len(INTEGER010) == 4) STRING038 = ""
  149.     STRING039 = INTEGER010
  150.     STRING040 = STRING038 + STRING039
  151.     STRING037 = Space(30 - Len(STRING036))
  152.     FOpen 1, STRING041, 0, 0
  153.     FGet 1, STRING036
  154.     FGet 1, INTEGER010
  155.     FGet 1, INTEGER009
  156.     FGet 1, STRING002
  157.     FGet 1, INTEGER006
  158.     FGet 1, STRING026
  159.     FGet 1, STRING026
  160.     FGet 1, STRING029
  161.     FGet 1, STRING026
  162.     FGet 1, STRING030
  163.     FGet 1, STRING026
  164.     FGet 1, STRING026
  165.     FClose 1
  166.     STRING003 = "Intelec v" + STRING008 + " #" + STRING040 + " ■ Reg'd To: " + STRING002 + " ■ " + STRING036
  167.     GetToken STRING009
  168.     If (STRING009 == "I") STRING010 = "Y"
  169.     If (STRING010 == "Y") Goto LABEL002
  170.     FOpen 1, STRING029, 0, 0
  171.     For INTEGER003 = 1 To 8
  172.         FGet 1, STRING026
  173.     Next
  174.     FGet 1, STRING027
  175.     FClose 1
  176.     DATE002 = Mid(STRING027, 38, 8)
  177.     Goto LABEL003
  178.     :LABEL002
  179.     FOpen 1, STRING029, 0, 0
  180.     For INTEGER003 = 1 To 8
  181.         FGet 1, STRING026
  182.     Next
  183.     FGet 1, STRING027
  184.     FClose 1
  185.     DATE002 = Mid(STRING027, 49, 8)
  186.     :LABEL003
  187.     FOpen 1, STRING030, 0, 0
  188.     For INTEGER003 = 1 To 4
  189.         FGet 1, STRING026
  190.     Next
  191.     FClose 1
  192.     INTEGER004 = Mid(STRING026, 42, 3)
  193.     GetUser
  194.     STRING023 = Left(U_Addr(0), 17)
  195.     STRING015 = Left(U_Addr(2), 17)
  196.     STRING022 = Left(U_Addr(3), 2)
  197.     STRING006 = Left(U_Addr(4), 7)
  198.     STRING004 = Left(U_Addr(5), 12)
  199.     STRING019 = Left(U_Name(), 25)
  200.     :LABEL004
  201.     INTEGER001 = 0
  202.     Cls
  203.     DispFile PPEPath() + "SCHBBS", 4 + 2 + 1
  204.     PrintLn 
  205.     InputStr " @X0BSelect # or <Enter> to Abort", INTEGER001, 11, 2, Mask_Num(), 2
  206.     If (INTEGER001 == 0) Goto LABEL014
  207.     FOpen 1, PPEPath() + "BBS_SW.LST", 0, 0
  208.     For INTEGER003 = 1 To INTEGER001
  209.         FGet 1, STRING012
  210.     Next
  211.     FClose 1
  212.     If (STRING012 == "OtherBBSSW") Gosub LABEL016
  213.     If (STRING012 == "") Gosub LABEL015
  214.     If (STRING012 == "") Goto LABEL004
  215.     STRING012 = STRING012 + Space(11 - Len(STRING012))
  216.     :LABEL005
  217.     Cls
  218.     INTEGER001 = 0
  219.     DispFile PPEPath() + "SCHNET", 4 + 2 + 1
  220.     PrintLn 
  221.     InputStr " @X0ESelect # or <Enter> to Abort", INTEGER001, 11, 2, Mask_Num(), 2
  222.     If (INTEGER001 == 0) Goto LABEL014
  223.     FOpen 1, PPEPath() + "NET_SW.LST", 0, 0
  224.     For INTEGER003 = 1 To INTEGER001
  225.         FGet 1, STRING013
  226.     Next
  227.     FClose 1
  228.     If (STRING013 == "") Gosub LABEL015
  229.     If (STRING013 == "") Goto LABEL005
  230.     STRING013 = STRING013 + Space(10 - Len(STRING013))
  231.     :LABEL006
  232.     INTEGER005 = 0
  233.     INTEGER001 = 0
  234.     Cls
  235.     FOpen 1, STRING030, 0, 0
  236.     For INTEGER003 = 1 To 5
  237.         FGet 1, STRING026
  238.     Next
  239.     For INTEGER002 = 1 To INTEGER004
  240.         FGet 1, TSTRING031(1)
  241.         FGet 1, TSTRING031(2)
  242.         FGet 1, TSTRING031(3)
  243.         FGet 1, TSTRING031(4)
  244.         FGet 1, TSTRING031(5)
  245.         If (((Mid(TSTRING031(4), 9, 14) == "Super Regional") || (Mid(TSTRING031(4), 9, 14) == "Regional Hub  ")) || (Mid(TSTRING031(4), 9, 14) == "Local Hub     ")) Gosub LABEL007
  246.     Next
  247.     FClose 1
  248.     PrintLn 
  249.     If (!(INTEGER005 == 4)) InputStr "@X0BSelect a Hub Number, or <Enter> for next screen", INTEGER001, 11, 1, Mask_Num() , 2
  250.     If (INTEGER001 == 0) Goto LABEL006
  251.     :LABEL007
  252.     If (INTEGER005 == 4) INTEGER005 = 0
  253.     If (INTEGER005 == 0) Cls
  254.     INTEGER005 = INTEGER005 + 1
  255.     STRING034 = Mid(TSTRING031(1), 9, 20)
  256.     TSTRING031(1) = "@X0F  " + Mid(TSTRING031(1), 9, 71)
  257.     TSTRING031(2) = "@X0E   " + Mid(TSTRING031(2), 9, 71)
  258.     TSTRING031(3) = "@X0A   " + Mid(TSTRING031(3), 9, 71)
  259.     TSTRING031(4) = "@X0B   " + Mid(TSTRING031(4), 9, 71)
  260.     TSTRING031(5) = "@X0F   " + Mid(TSTRING031(5), 9, 71)
  261.     If (INTEGER005 == 1) TSTRING033(1) = STRING034
  262.     If (INTEGER005 == 2) TSTRING033(2) = STRING034
  263.     If (INTEGER005 == 3) TSTRING033(3) = STRING034
  264.     If (INTEGER005 == 4) TSTRING033(4) = STRING034
  265.     TSTRING031(1) = "@X07" + String(INTEGER005) + TSTRING031(1)
  266.     PrintLn TSTRING031(1)
  267.     PrintLn TSTRING031(2)
  268.     PrintLn TSTRING031(3)
  269.     PrintLn TSTRING031(4)
  270.     PrintLn TSTRING031(5)
  271.     If (INTEGER005 == 4) Then
  272.         PrintLn 
  273.         INTEGER001 = 0
  274.         InputStr "@X0BSelect a Hub Number, or <Enter> for next screen", INTEGER001, 11, 1, Mask_Num(), 2
  275.         If (INTEGER001 == 1) STRING017 = TSTRING033(1)
  276.         If (INTEGER001 == 2) STRING017 = TSTRING033(2)
  277.         If (INTEGER001 == 3) STRING017 = TSTRING033(3)
  278.         If (INTEGER001 == 4) STRING017 = TSTRING033(4)
  279.         If (INTEGER001 == 0) Return
  280.         If (INTEGER001 > 4) Return
  281.         If (!(INTEGER001 == 0)) FClose 1
  282.         If (!(INTEGER001 == 0)) INTEGER002 = 0
  283.         If (INTEGER001 == 0) Then
  284.             Cls
  285.         Endif
  286.         Return
  287.     Endif
  288.     Cls
  289.     InputStr "@X0BWhat is the name of your BBS (20 chars maximum)", STRING011, 11, 20, Mask_Alpha() + Mask_Num() + Mask_Ascii(), 2
  290.     If (STRING011 == "") Goto LABEL014
  291.     If (STRING010 == "Y") Then
  292.         STRING005 = "              "
  293.     Else
  294.         STRING005 = "   -   -      "
  295.     Endif
  296.     InputStr "@X0BWhat is your BBS's phone number             ", STRING005, 11, 14, Mask_Num() + "-", 2 + 128 + 1024
  297.     If (Len(STRING005) < 8) Goto LABEL014
  298.     :LABEL008
  299.     INTEGER001 = 0
  300.     Cls
  301.     DispFile PPEPath() + "SCHMDM", 4 + 2 + 1
  302.     PrintLn 
  303.     PrintLn " @X0EWhat modem is on your BBS phone number: @X0F", STRING005, "@X0B"
  304.     PrintLn 
  305.     InputStr "Select # or <Enter> to Abort ", INTEGER001, 11, 2, Mask_Num(), 2
  306.     If (INTEGER001 == 0) Goto LABEL014
  307.     FOpen 1, PPEPath() + "MODEM.LST", 0, 0
  308.     For INTEGER003 = 1 To INTEGER001
  309.         FGet 1, STRING018
  310.     Next
  311.     FClose 1
  312.     If (STRING018 == "") Gosub LABEL015
  313.     If (STRING018 == "") Goto LABEL008
  314.     STRING018 = STRING018 + Space(10 - Len(STRING018))
  315.     INTEGER001 = 0
  316.     Cls
  317.     InputStr "@X0EHow many years has your BBS been operational, or <Enter> to Abort ", INTEGER001, 11, 2, Mask_Num(), 2
  318.     If (INTEGER001 == 0) Goto LABEL014
  319.     If (INTEGER001 == 1) STRING025 = "1 Year  "
  320.     If (INTEGER001 >= 10) STRING025 = "10+ Yrs."
  321.     If ((INTEGER001 > 1) && (INTEGER001 < 10)) STRING025 = String(INTEGER001) + " Years "
  322.     INTEGER001 = 0
  323.     Cls
  324.     PrintLn " "
  325.     InputStr "@X0EHow many users on your BBS, or <Enter> to Abort ", INTEGER001, 11, 5, Mask_Num(), 2
  326.     If (INTEGER001 == 0) Goto LABEL014
  327.     STRING024 = String(INTEGER001) + Space(9 - Len(INTEGER001))
  328.     Cls
  329.     Color 11
  330.     InputStr "Your real name on BBS (25 characters max)   ", STRING019, 11, 25, Mask_Alpha() + " ", 2 + 128
  331.     If (Len(STRING019) < 1) Goto LABEL014
  332.     If (STRING010 == "Y") Then
  333.         STRING016 = "              "
  334.     Else
  335.         STRING016 = "   -   -      "
  336.     Endif
  337.     InputStr "What is your voice phone #                  ", STRING016, 11, 14, Mask_Num() + "-", 2 + 128 + 1024
  338.     If (Len(STRING016) < 8) Goto LABEL014
  339.     STRING007 = "  -  -  "
  340.     InputStr "What is your Date of Birth                  ", STRING007, 11, 8, Mask_Num() + "-", 2 + 128 + 1024
  341.     If (Len(STRING007) < 8) Goto LABEL014
  342.     InputStr "What's your Street Address                  ", STRING023, 11, 25, Mask_Alpha() + Mask_Num() + Mask_Ascii(), 2 + 128
  343.     If (Len(STRING023) < 9) Goto LABEL014
  344.     InputStr "City: (17 characters max)                   ", STRING015, 11, 17, Mask_Alpha() + " ", 2 + 128
  345.     If (Len(STRING015) < 3) Goto LABEL014
  346.     InputStr "State or Province (2 letter abbreviation) ", STRING022, 11, 2, Mask_Alpha() + " ", 2 + 8 + 128
  347.     InputStr "Country (12 characters max)                  ", STRING004, 11, 12, Mask_Alpha() + Mask_Ascii() + Mask_Num(), 2 + 8 + 128
  348.     If (Len(STRING004) < 3) Goto LABEL014
  349.     InputStr "Zip code (7 characters max)                 ", STRING006, 11, 7, Mask_Alpha() + Mask_Ascii() + Mask_Num(), 2 + 8 + 128
  350.     If (Len(STRING006) < 3) Goto LABEL014
  351.     DispFile PPEPath() + "OTHNET", 4 + 2 + 1
  352.     InputStr "@X0BWhat other networks do you currently carry", STRING035, 11, 25, Mask_Ascii() + Mask_Alpha() + Mask_Num(), 2
  353.     :LABEL009
  354.     DispFile PPEPath() + "PWORD", 4 + 2 + 1
  355.     InputStr "@X0BWhat password as defined above (8 characters max) ", STRING020, 11, 8, Mask_Pwd(), 2 + 8 + 1 + 128
  356.     If (Len(STRING020) < 2) Goto LABEL014
  357.     InputStr "Please type password again........................", STRING021, 11, 8, Mask_Pwd(), 2 + 8 + 1 + 128
  358.     If ((((Upper(STRING021) == "CLIFF") || (Upper(STRING021) == "WATKINS")) || (Upper(STRING021) == "INTELEC")) || (Upper(STRING021) == "NETWORK")) Then
  359.         Goto LABEL014
  360.     Endif
  361.     If (STRING020 == STRING021) Goto LABEL010
  362.     PrintLn 
  363.     PrintLn "@X8C* @X0BPasswords did not match @X8C*@X07"
  364.     PrintLn 
  365.     Wait
  366.     STRING020 = ""
  367.     STRING021 = ""
  368.     Goto LABEL009
  369.     :LABEL010
  370.     STRING028 = "N"
  371.     PrintLn 
  372.     InputStr "@X0BHave you read the network rules and agree to comply with all (Y/N)", STRING028, 11, 1, Mask_Alpha(), 2 + 8
  373.     If (STRING028 == "N") Goto LABEL014
  374.     If (STRING028 == "") Goto LABEL014
  375.     If (STRING028 == "Y") STRING014 = "Y"
  376.     Cls
  377.     STRING028 = ""
  378.     PrintLn "  @X0A┌─────────────────────────────────────────────────@X0A┐@X07"
  379.     PrintLn "  @X0A│   @X0EIntelec Network PPE v", STRING008, "  VOID on ", DATE002, "   @X0A│@X07"
  380.     PrintLn "  @X0A├─────────────────────────────────────────────────@X0A┤@X07"
  381.     PrintLn "  @X0A│@X0B Today's Date@X0A·········@X0E ", DATE001, "                  @X0A│@X07"
  382.     PrintLn "  @X0A│@X0B Your (SysOp) Name@X0A····@X0E ", STRING019, Space(25 - Len(STRING019)), " @X0A│@X07"
  383.     PrintLn "  @X0A│@X0B Your (BBS's) Name@X0A····@X0E ", STRING011, Space(20 - Len(STRING011)), "      @X0A│@X07"
  384.     PrintLn "  @X0A│@X0B Your Date of Birth@X0A···@X0E ", STRING007, "                  @X0A│@X07"
  385.     PrintLn "  @X0A│@X0B Street Address@X0A·······@X0E ", STRING023, Space(25 - Len(STRING023)), " @X0A│@X07"
  386.     PrintLn "  @X0A│@X0B City and State@X0A·······@X0E ", STRING015, "  ", STRING022, Space(17 - Len(STRING015)), Space(2 - Len(STRING022)), "     @X0A│@X07"
  387.     PrintLn "  @X0A│@X0B Country & Zip Code@X0A···@X0E ", STRING004, Space(12 - Len(STRING004)), " ", STRING006, Space(7 - Len(STRING006)), "      @X0A│@X07"
  388.     PrintLn "  @X0A│@X0B Your Voice Phone #@X0A···@X0E ", STRING016, Space(14 - Len(STRING016)), "            @X0A│@X07"
  389.     PrintLn "  @X0A│@X0B Your  BBS  Phone #@X0A···@X0E ", STRING005, Space(14 - Len(STRING005)), "            @X0A│@X07"
  390.     PrintLn "  @X0A│@X0B Modem on above #@X0A·····@X0E ", STRING018, "               @X0A│@X07"
  391.     PrintLn "  @X0A│@X0B BBS Software Used@X0A····@X0E ", STRING012, "               @X0A│@X07"
  392.     PrintLn "  @X0A│@X0B Total Users Online@X0A···@X0E ", STRING024, "                 @X0A│@X07"
  393.     PrintLn "  @X0A│@X0B Years/Months Online@X0A··@X0E ", STRING025, "                  @X0A│@X07"
  394.     PrintLn "  @X0A│@X0B Your Hub Request@X0A·····@X0E ", STRING017, "      @X0A│@X07"
  395.     PrintLn "  @X0A│@X0B Netmail Tosser Used@X0A··@X0E ", STRING013, "                @X0A│@X07"
  396.     PrintLn "  @X0A│@X0B Other Nets Carried@X0A···@X0E ", STRING035, Space(25 - Len(STRING035)), " @X0A│@X07"
  397.     PrintLn "  @X0A│@X0B Read Rules? [Y/N]@X0A····@X0E ", STRING014, "                         @X0A│@X07"
  398.     PrintLn "  @X0A│@X0B CLIFF WATKINS P/W@X0A····@X0E ", STRING021, Space(8 - Len(STRING021)), "                  @X0A│@X07"
  399.     PrintLn "  @X0A└@X0A─────────────────────────────────────────────────┘@X07"
  400.     InputStr "  @X0AS@X0B) Save as shown above   @X0EM@X0B) Modify   @X0CA@X0B) Abort", STRING028, 11, 1, Mask_Alpha(), 2 + 8
  401.     If (STRING028 == "S") Goto LABEL011
  402.     If (STRING028 == "M") Goto LABEL004
  403.     If (STRING028 == "A") Goto LABEL014
  404.     Goto LABEL014
  405.     :LABEL011
  406.     FOpen 2, PPEPath() + "INTELEC.ANS", 1, 0
  407.     FPutLn 2, "┌─────────────────────────────────────────────────┐"
  408.     FPutLn 2, "│   Intelec Network PPE v", STRING008, "  VOID on ", DATE002, "   │"
  409.     FPutLn 2, "├─────────────────────────────────────────────────┤"
  410.     FPutLn 2, "│ Today's Date········· ", DATE001, "                  │"
  411.     FPutLn 2, "│ Your (SysOp) Name···· ", STRING019, Space(25 - Len(STRING019)), " │"
  412.     FPutLn 2, "│ Your (BBS's) Name···· ", STRING011, Space(20 - Len(STRING011)), "      │"
  413.     FPutLn 2, "│ Your Date of Birth··· ", STRING007, "                  │"
  414.     FPutLn 2, "│ Street Address······· ", STRING023, Space(25 - Len(STRING023)), " │"
  415.     FPutLn 2, "│ City and State······· ", STRING015, "  ", STRING022, Space(17 - Len(STRING015)), Space(2 - Len(STRING022)), "     │"
  416.     FPutLn 2, "│ Country & Zip Code··· ", STRING004, Space(12 - Len(STRING004)), " ", STRING006, Space(7 - Len(STRING006)), "      │"
  417.     FPutLn 2, "│ Your Voice Phone #··· ", STRING016, Space(14 - Len(STRING016)), "            │"
  418.     FPutLn 2, "│ Your  BBS  Phone #··· ", STRING005, Space(14 - Len(STRING005)), "            │"
  419.     FPutLn 2, "│ Modem on above #····· ", STRING018, "               │"
  420.     FPutLn 2, "│ BBS Software Used···· ", STRING012, "               │"
  421.     FPutLn 2, "│ Total Users Online··· ", STRING024, "                 │"
  422.     FPutLn 2, "│ Years/Months Online·· ", STRING025, "                  │"
  423.     FPutLn 2, "│ Your Hub Request····· ", STRING017, "      │"
  424.     FPutLn 2, "│ Netmail Tosser Used·· ", STRING013, "                │"
  425.     FPutLn 2, "│ Other Nets Carried··· ", STRING035, Space(25 - Len(STRING035)), " │"
  426.     FPutLn 2, "│ Read Rules? [Y/N]···· ", STRING014, "                         │"
  427.     FPutLn 2, "│ CLIFF WATKINS P/W···· ", STRING021, Space(8 - Len(STRING021)), "                  │"
  428.     FPutLn 2, "└─────────────────────────────────────────────────┘"
  429.     FPutLn 2, STRING003
  430.     FClose 2
  431.     Log "Intelec Application completed at " + String(Time()), 0
  432.     Message 0, STRING002, "INTAPP", "Intelec Application", "R", "0", "0", "0", PPEPath() + "INTELEC.ANS"
  433.     If (INTEGER006 < 1) Goto LABEL012
  434.     Message INTEGER006, "CLIFF WATKINS", STRING002, "Intelec Application", "N", "0", "0", "1", PPEPath() + "INTELEC.ANS"
  435.     :LABEL012
  436.     If (Exist(PPEPath() + "INTELEC.LST")) Goto LABEL013
  437.     FOpen 2, PPEPath() + "INTELEC.LST", 1, 0
  438.     FPut 2, ""
  439.     FClose 2
  440.     :LABEL013
  441.     Append PPEPath() + "INTELEC.ANS", PPEPath() + "INTELEC.LST"
  442.     Delete PPEPath() + "INTELEC.ANS"
  443.     DispFile PPEPath() + "THAPP", 4 + 2 + 1
  444.     Wait
  445.     End
  446.     :LABEL014
  447.     DispFile PPEPath() + "ABORT", 4 + 2 + 1
  448.     Wait
  449.     End
  450.     :LABEL015
  451.     PrintLn 
  452.     PrintLn "@X0FSorry... you entered an invalid number"
  453.     PrintLn 
  454.     Wait
  455.     Return
  456.     DispFile PPEPath() + "BADSW", 4 + 2 + 1
  457.     Wait
  458.     Goto LABEL014
  459.     :LABEL016
  460.     STRING012 = ""
  461.     PrintLn 
  462.     InputStr "@X0BWhat BBS software do you use", STRING012, 11, 11, Mask_Alpha() + Mask_Num() + Mask_Ascii(), 2
  463.     If (STRING012 == "") Goto LABEL014
  464.     STRING012 = STRING012 + Space(11 - Len(STRING012))
  465.     Return
  466.     :LABEL017
  467.     Cls
  468.     PrintLn 
  469.     PrintLn "                       @X5D┌──────────────────────────────@X50┐@X07"
  470.     PrintLn "                       @X5D│       @X5AIntelec PPE v", STRING008, "      @X50│@X07"
  471.     PrintLn "                       @X5D│                              @X50│@X07"
  472.     PrintLn "                       @X5D│      @X5BAborting Operation      @X50│@X07"
  473.     PrintLn "                       @X5D│                              @X50│@X07"
  474.     PrintLn "                       @X5D│ @X5BThis PPE Requires Reg Codes! @X50│@X07"
  475.     PrintLn "                       @X5D│                              @X50│@X07"
  476.     PrintLn "                       @X5D│ @X5BEven though this PPE is FREE @X50│@X07"
  477.     PrintLn "                       @X5D│ @X5Bit MUST be registered  or it @X50│@X07"
  478.     PrintLn "                       @X5D│ @X5Bwill not be able to operate! @X50│@X07"
  479.     PrintLn "                       @X5D└@X50──────────────────────────────┘@X07"
  480.     End
  481.  
  482. ;------------------------------------------------------------------------------
  483. ;
  484. ; Usage report (before postprocessing)
  485. ;
  486. ; ■ Statements used :
  487. ;
  488. ;    4       End
  489. ;    12      Cls
  490. ;    5       Wait
  491. ;    1       Color 
  492. ;    63      Goto 
  493. ;    120     Let 
  494. ;    56      PrintLn 
  495. ;    100     If 
  496. ;    8       DispFile 
  497. ;    11      FOpen 
  498. ;    12      FClose 
  499. ;    29      FGet 
  500. ;    1       FPut 
  501. ;    23      FPutLn 
  502. ;    1       GetUser
  503. ;    1       Delete 
  504. ;    1       Log 
  505. ;    23      InputStr 
  506. ;    5       Gosub 
  507. ;    5       Return
  508. ;    1       Tokenize 
  509. ;    3       GetToken 
  510. ;    2       Message 
  511. ;    1       FDefIn 
  512. ;    1       FDefOut 
  513. ;    1       Append 
  514. ;
  515. ;
  516. ; ■ Functions used :
  517. ;
  518. ;    126     +
  519. ;    28      -
  520. ;    82      ==
  521. ;    19      <
  522. ;    8       <=
  523. ;    2       >
  524. ;    17      >=
  525. ;    19      !
  526. ;    17      &&
  527. ;    13      ||
  528. ;    41      Len(
  529. ;    4       Upper()
  530. ;    12      Mid()
  531. ;    8       Left()
  532. ;    28      Space()
  533. ;    1       Date()
  534. ;    1       Time()
  535. ;    1       U_Name()
  536. ;    4       String()
  537. ;    2       Mask_Pwd()
  538. ;    11      Mask_Alpha()
  539. ;    16      Mask_Num()
  540. ;    6       Mask_Ascii()
  541. ;    20      PPEPath()
  542. ;    2       Exist()
  543. ;    2       S2I()
  544. ;
  545. ;------------------------------------------------------------------------------
  546. ;
  547. ; Analysis flags : No flag
  548. ;
  549. ;------------------------------------------------------------------------------
  550. ;
  551. ; Postprocessing report
  552. ;
  553. ;    8       For/Next
  554. ;    0       While/EndWhile
  555. ;    6       If/Then or If/Then/Else
  556. ;    0       Select Case
  557. ;
  558. ;------------------------------------------------------------------------------
  559. ;                 AEGiS Corp - Break the routines, code against the machines!
  560. ;------------------------------------------------------------------------------
  561.